﻿Public Class MFile
    Private _name As String     ' Tên bài hát
    Private _link As String     ' Địa chỉ file
    Private _linkweb As String  ' Đia chỉ trang web
    Private _lyric As String    ' Lời bài hát
    Private _singer As String    ' Ca sĩ

    Public Sub MFile()
        _name = ""
        _link = ""
        _linkweb = ""
    End Sub

    Public Property Name As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property Link As String
        Get
            Return _link
        End Get
        Set(ByVal value As String)
            _link = value
        End Set
    End Property

    Public Property LinkWeb As String
        Get
            Return _linkweb
        End Get
        Set(ByVal value As String)
            _linkweb = value
        End Set
    End Property

    Public Property Lyric As String
        Get
            Return _lyric
        End Get
        Set(ByVal value As String)
            _lyric = value
        End Set
    End Property

    Public Property Singer As String
        Get
            Return _singer
        End Get
        Set(ByVal value As String)
            _singer = value
        End Set
    End Property
End Class
